0 REM -- PROGRAM 2 --
10 FORK=0TO10
20 READA:C=C+A
30 POKE16384+K,A:NEXTK
40 IFC<>839THENPRINT"DATA ERROR":END
50 SYS16384
16384 DATA 162,0
16386 DATA 189,0,4
16389 DATA 164,2
16391 DATA 153,64,5
16394 DATA 96